home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / members.arc / MDINDEX.PRG < prev    next >
Text File  |  1986-10-16  |  640b  |  22 lines
  1. *----------------------------------------------------------------------
  2. * Program : Membership Database Package
  3. * File    : MDINDEX
  4. * Function: Re-Builds Index Files
  5. * Author  : J. North        
  6. * Version : (AT contest)
  7. * Date    : 10/15/86
  8. *----------------------------------------------------------------------
  9. *
  10. do clwait
  11. select 1
  12. if file("members.dbf")
  13.     ?"Indexing Membership Database By ---"
  14.     use members
  15.     ? "   Last Name/First Name..."
  16.     index on last_name+first_name to name
  17.     ? "   Zip Code..."
  18.     index on zip to zip
  19.     use
  20. endif
  21. return
  22.